home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2001 May / SGI IRIX Base Documentation 2001 May.iso / usr / share / catman / p_man / cat3 / complib / CSISL.z / CSISL
Encoding:
Text File  |  1998-10-30  |  1.5 KB  |  67 lines
  1.  
  2.  
  3.  
  4. CCCCSSSSIIIISSSSLLLL((((3333FFFF))))                                                            CCCCSSSSIIIISSSSLLLL((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CSISL   - CSISL solves the complex symmetric system A * X = B using the
  10.      factors computed by CSIFA.
  11.  
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  14.       SUBROUTINE CSISL(A,LDA,N,KPVT,B)
  15.  
  16. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  17.      On Entry
  18.  
  19.      AAAA COMPLEX(LDA,N)
  20.         the output from CSIFA.
  21.  
  22.      LLLLDDDDAAAA INTEGER
  23.         the leading dimension of the array  A .
  24.  
  25.      NNNN INTEGER
  26.         the order of the matrix  A .  KVPT    INTEGER(N)
  27.         the pivot vector from CSIFA.
  28.  
  29.      BBBB COMPLEX(N)
  30.         the right hand side vector.  On Return
  31.  
  32.      BBBB the solution vector  X . Error Condition
  33.  
  34.      AAAA division by zero may occur if  CSICO  has set RCOND .EQ. 0.0 or  CSIFA
  35.      has set INFO .NE. 0  .  To compute  INVERSE(A) * C  where  C  is a matrix
  36.      with  P  columns
  37.         CALL CSIFA(A,LDA,N,KVPT,INFO)
  38.         If (INFO .NE. 0) GO TO ...
  39.         DO 10 J = 1, P
  40.         CALL CSISL(A,LDA,N,KVPT,C(1,j)) 10 CONTINUE LINPACK.  This version
  41.      dated 08/14/78 .  James Bunch, Univ. Calif. San Diego, Argonne Nat. Lab.
  42.      Subroutines and Functions BLAS CAXPY,CDOTU Fortran IABS
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.